﻿Module Module1
  Sub Main()
    Dim risultato As BigInteger = Raddoppio(1000000)
    Console.WriteLine(risultato)
    Console.WriteLine()
    Console.WriteLine(risultato.ToString.Length)
    Console.ReadLine()
  End Sub

  Public Function Raddoppio(ByVal n As BigInteger) As BigInteger
    Dim numero As BigInteger = 2
    For i As BigInteger = 1 To n
      numero *= 2
    Next
    Return numero
  End Function
End Module
